home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus Special 21 / AMIGAplus Sonderheft 21 (1999)(ICP)(DE)[!].iso / PublicDomain / Spiele / MUIMine / Install-MUIMine next >
Text File  |  1999-08-23  |  22KB  |  665 lines

  1.  
  2. ;------------------------------------------------------------------------
  3. ;
  4. ; Install script for MUIMine
  5. ;
  6. ; $VER: MUIMine-Install 1.2 (1.3.99)
  7. ;
  8. ;------------------------------------------------------------------------
  9.  
  10. ;
  11. ;   these are the language names and sub-directory names
  12. ;
  13. (set #language-cat-name-0   "")
  14. (set #language-doc-name-0   "English")
  15. (set #language-dir-0        "english")
  16. (set #language-cat-mask-0   0)
  17. (set #language-doc-mask-0   1)
  18. (set #language-doc-0        "MUIMineENG.doc")
  19.  
  20. (set #language-cat-name-1   "German")
  21. (set #language-doc-name-1   "German")
  22. (set #language-dir-1        "deutsch")
  23. (set #language-cat-mask-1   2)
  24. (set #language-doc-mask-1   2)
  25. (set #language-doc-1        "MUIMineGER.guide")
  26.  
  27. (set #language-cat-name-2   "Croatian")
  28. (set #language-doc-name-2   "")
  29. (set #language-dir-2        "hrvatski")
  30. (set #language-cat-mask-2   4)
  31. (set #language-doc-mask-2   1)
  32. (set #language-doc-2        "")
  33.  
  34. (set #language-cat-name-3   "Italian")
  35. (set #language-doc-name-3   "")
  36. (set #language-dir-3        "italiano")
  37. (set #language-cat-mask-3   8)
  38. (set #language-doc-mask-3   1)
  39. (set #language-doc-3        "")
  40.  
  41. (set #language-cat-name-4   "Slovenian")
  42. (set #language-doc-name-4   "Slovenian")
  43. (set #language-dir-4        "slovensko")
  44. (set #language-cat-mask-4   16)
  45. (set #language-doc-mask-4   16)
  46. (set #language-doc-4        "MUIMineSLO.doc")
  47.  
  48. (set #language-cat-name-5   "Dutch")
  49. (set #language-doc-name-5   "Dutch")
  50. (set #language-dir-5        "nederlands")
  51. (set #language-cat-mask-5   32)
  52. (set #language-doc-mask-5   32)
  53. (set #language-doc-5        "MUIMineNL.doc")
  54.  
  55. (set #language-cat-name-6   "Portuguese")
  56. (set #language-doc-name-6   "Portuguese")
  57. (set #language-dir-6        "português")
  58. (set #language-cat-mask-6   64)
  59. (set #language-doc-mask-6   64)
  60. (set #language-doc-6        "MUIMinePT.doc")
  61.  
  62. (set #language-cat-name-7   "Czech")
  63. (set #language-doc-name-7   "")
  64. (set #language-dir-7        "ÃeÓtina")
  65. (set #language-cat-mask-7   128)
  66. (set #language-doc-mask-7   1)
  67. (set #language-doc-7        "")
  68.  
  69.  
  70. ;
  71. ;   set strings for language
  72. ;
  73.  
  74. ;-------- English --------
  75. (
  76.     (set #wrongversion
  77.         (cat "You have an old version of the program 'Installer' on your Amiga!\n\n"
  78.              "This installation procedure needs at least Installer V42.9.\n\n"
  79.              "Please check your configuration!"
  80.         )
  81.     )
  82.  
  83.     (set #welcome "Welcome to the the Installation of the MUIMine!")
  84.  
  85.  
  86.     (set #getdestdir-prompt "Please select the drawer to install 'MUIMine' in, a drawer called 'MUIMine' will be created here.\n")
  87.     (set #getdestdir-help "This is where you wish to install MUIMine. A drawer named MUIMine will be created here to install the MUIMine files to.\n\n")
  88.  
  89.     (set #getlanguages-prompt "Select which languages you wish to install message catalogs for.")
  90.     (set #getlanguages-help
  91.         (cat "The default language of MUIMine is English. To operate MUIMine in a different language you will need a message catalog for that language.\n\n"
  92.              "The list of languages here are those for which a message catalog is included in the distribution. Others may be released "
  93.              "later (keep an eye on Aminet:game/think). Check those languages that you wish to have a message catalog installed for.\n\n"
  94.              "A catalog description file for MUIMine ('MUIMine.cd') will be installed in the 'Catalogs' sub-directory of the installation directory. "
  95.              "This file can be used to create additional translations for MUIMine."
  96.         )
  97.     )
  98.  
  99.     (set #getdocuments-prompt "Select which languages you wish to install documentation for.")
  100.     (set #getdocuments-help
  101.         (cat "These are the languages that documentation is available in. "
  102.              "To install the documentation for a language make sure the "
  103.              "checkbox for the language is checked."
  104.         )
  105.     )
  106.  
  107.     (set #col-imageset-name "Colour image set")
  108.     (set #mwb-imageset-name "Magic Workbench image set")
  109.     (set #bw-imageset-name  "Black and White image set")
  110.     (set #keep-curr-imageset "Keep current")
  111.  
  112.     (set #getimageset-prompt "Which default image set do you wish to use for MUIMine")
  113.     (set #getimageset-help
  114.         (cat "Image sets define the appearence of MUIMine by changing the bitmap imagery used to render the main MUIMine window elements.\n\n"
  115.              "The default image set are the image files used when no alternate image files are specified or when the specified image file is invalid for the object.\n\n"
  116.              "MUIMine comes with three standard default image sets. These are :-\n"
  117.              "  Colour - recommended for 16 colour or greater Workbench\n"
  118.              "  Magic Workbench - recommended if using Magic Workbench\n"
  119.              "  Black & White - recommended for standard 4 colour Workbench\n\n"
  120.              "If a full set of default image files already exists in the install destination you are given the option of retaining the current image set. "
  121.              "Any existing image file is backed up if a new image set is selected.\n\n"
  122.              "You can select alternate image files to use from within the program."
  123.         )
  124.     )
  125.  
  126.     (set #ato-doc-file-name "ato.readme")
  127.     (set #def-cat-mask #language-cat-mask-0)
  128.     (set #def-doc-mask #language-doc-mask-0)
  129.  
  130. ) ; english
  131.  
  132. (if (= @language "deutsch")
  133.     (
  134.         (set #welcome
  135.             (cat "Welcome to the the Installation of the MUIMine!"
  136.                  "\n\nSorry this script has not been translated to German."
  137.                  " This only selects to install the German catalog and docs"
  138.                  " by default."
  139.             )
  140.         )
  141.         (set #def-cat-mask #language-cat-mask-1)
  142.         (set #def-doc-mask #language-doc-mask-1)
  143.     )
  144. ) ; deutsch
  145.  
  146. (if (= @language "hrvatski")
  147.     (
  148.         (set #welcome
  149.             (cat "Welcome to the the Installation of the MUIMine!"
  150.                  "\n\nSorry this script has not been translated to Croatian."
  151.                  " This only selects to install the Croatian catalog by default."
  152.             )
  153.         )
  154.         (set #def-cat-mask #language-cat-mask-2)
  155.         (set #def-doc-mask #language-doc-mask-2)
  156.     )
  157. ) ; hrvatski
  158.  
  159. (if (= @language "italiano")
  160.     (
  161.         (set #welcome
  162.             (cat "Welcome to the the Installation of the MUIMine!"
  163.                  "\n\nSorry this script has not been translated to Italian."
  164.                  " This only selects to install the Italian catalog by default."
  165.             )
  166.         )
  167.         (set #def-cat-mask #language-cat-mask-3)
  168.         (set #def-doc-mask #language-doc-mask-3)
  169.     )
  170. ) ; italiano
  171.  
  172. (if (= @language "slovensko")
  173.     (
  174.         (set #welcome
  175.             (cat "Welcome to the the Installation of the MUIMine!"
  176.                  "\n\nSorry this script has not been translated into Slovenian."
  177.                  " This only selects to install the Slovenian catalog and docs"
  178.                  " by default."
  179.             )
  180.         )
  181.         (set #def-cat-mask #language-cat-mask-4)
  182.         (set #def-doc-mask #language-doc-mask-4)
  183.     )
  184. ) ; slovensko
  185.  
  186. (if (= @language "nederlands")
  187.     (
  188.         (set #welcome
  189.             (cat "Welcome to the the Installation of the MUIMine!"
  190.                  "\n\nSorry this script has not been translated into Dutch."
  191.                  " This only selects to install the Dutch catalog and docs"
  192.                  " by default."
  193.             )
  194.         )
  195.         (set #def-cat-mask #language-cat-mask-5)
  196.         (set #def-doc-mask #language-doc-mask-5)
  197.     )
  198. ) ; nederlands
  199.  
  200. (if (= @language "português")
  201.     (
  202.         (set #welcome
  203.             (cat "Welcome to the the Installation of the MUIMine!"
  204.                  "\n\nSorry this script has not been translated into Português."
  205.                  " This only selects to install the Português catalog and docs"
  206.                  " by default."
  207.             )
  208.         )
  209.         (set #def-cat-mask #language-cat-mask-6)
  210.         (set #def-doc-mask #language-doc-mask-6)
  211.     )
  212. ) ; português
  213.  
  214. (if (= @language "ÃeÓtina")
  215.     (
  216.         (set #welcome
  217.             (cat "Welcome to the the Installation of the MUIMine!"
  218.                  "\n\nSorry this script has not been translated into Czech."
  219.                  " This only selects to install the Czech catalog by default."
  220.             )
  221.         )
  222.         (set #def-cat-mask #language-cat-mask-7)
  223.         (set #def-doc-mask #language-doc-mask-7)
  224.     )
  225. ) ; ÃeÓtina
  226.  
  227. ;
  228. ;   these strings are for file names and are independent of the language
  229. ;
  230. (set #col-def-mfimage   "MineFieldImage.col")
  231. (set #col-def-fbimage   "FaceButtonImage.yellow")
  232. (set #col-def-digimage  "DigitsImage.7seg.red")
  233. (set #mwb-def-mfimage   "MineFieldImage.MWB")
  234. (set #mwb-def-fbimage   "FaceButtonImage.MWB")
  235. (set #mwb-def-digimage  "DigitsImage.7seg.MWB")
  236. (set #bw-def-mfimage    "MineFieldImage.BW")
  237. (set #bw-def-fbimage    "FaceButtonImage.BW")
  238. (set #bw-def-digimage   "DigitsImage.7seg.BW")
  239. (set #mf-image-name     "def_MineFieldImage")
  240. (set #face-image-name   "def_FaceButtonImage")
  241. (set #dig-image-name    "def_DigitsImage")
  242.  
  243.  
  244.  
  245.  
  246. ;------------------------------------------------------------------------
  247. ;
  248. ; We can't handle this script without Installer 42.9 or better!
  249. ;
  250. (if (< @installer-version 2752521)
  251.   (
  252.     ; Big problem!
  253.     (message #wrongversion)
  254.     (exit (quiet))
  255.   )
  256. )
  257.  
  258. ;------------------------------------------------------------------------
  259. ;
  260. ; find out how the user wants to install things
  261. ;
  262. (welcome #welcome)
  263.  
  264. (complete 0)
  265.  
  266.  
  267. ;------------------------------------------------------------------------
  268. ;
  269. ; default instalation directories, these are searched for in the order
  270. ; given, the first found will be the default installation directory or
  271. ; if none are found then @default-dest is used unmodified
  272. ;
  273. (set #def-dest-1    "Games:")
  274. (set #def-dest-2    "Apps:")
  275. (set #def-dest-3    "Applications:")
  276. (set #def-dest-4    "Progs:")
  277. (set #def-dest-5    "Programs:")
  278. ;(set #max-def-dest  5)
  279. ;
  280. ;(set #def-dest  "")
  281. ;(set #i 1)
  282. ;(while (AND (<= #i #max-def-dest) (= "" #def-dest))
  283. ;    (
  284. ;        (set #def-dest-try (symbolval ("#def-dest-%ld" #i)))
  285. ;        (if (exists #def-dest-try (noreq))
  286. ;            (set #def-dest #def-dest-try)
  287. ;        ) ; if
  288. ;        (set #i (+ #i 1))
  289. ;    )
  290. ;) ; while
  291. ;
  292. ;(if (<> "" #def-dest)
  293. ;    (set @default-dest #def-dest)
  294. ;) ; if
  295.  
  296. ;
  297. ;   The code commented out above works fine but causes Installer V43.3 to
  298. ;   crash on exit after displaying the 'done with installation' message.
  299. ;
  300. ;   The following code works and does not cause a crash.
  301. ;
  302.  
  303. (if (exists #def-dest-1 (noreq))
  304.     (set @default-dest #def-dest-1)
  305.     (if (exists #def-dest-2 (noreq))
  306.         (set @default-dest #def-dest-2)
  307.         (if (exists #def-dest-3 (noreq))
  308.             (set @default-dest #def-dest-3)
  309.             (if (exists #def-dest-4 (noreq))
  310.                 (set @default-dest #def-dest-4)
  311.                 (if (exists #def-dest-5 (noreq))
  312.                     (set @default-dest #def-dest-5)
  313.                 )
  314.             )
  315.         )
  316.     )
  317. )
  318.  
  319. ;
  320. ;   prompt the user for the install directory if not novice
  321. ;
  322. (if (<> 0 @user-level)
  323.     (set @default-dest
  324.         (expandpath
  325.             (askdir
  326.                 (prompt #getdestdir-prompt)
  327.                 (help (cat #getdestdir-help @askdir-help))
  328.                 (default @default-dest)
  329.             )
  330.         )
  331.     )
  332. )
  333.  
  334. ;
  335. ;   set the full names of the MUIMine directories
  336. ;
  337. (set #MUIMine-dir  (tackon @default-dest "MUIMine"))
  338. (set #Image-dir    (tackon #MUIMine-dir  "images"))
  339. (set #Catalog-dir  (tackon #MUIMine-dir  "Catalogs"))
  340. (set #Document-dir (tackon #MUIMine-dir  "Docs"))
  341.  
  342. ;
  343. ;   prompt for language catalogs to install if not novice, novice
  344. ;   installs all language catalogs
  345. ;
  346. (set #catalog-mask (+ #language-cat-mask-0 #language-cat-mask-1
  347.                       #language-cat-mask-2 #language-cat-mask-3
  348.                       #language-cat-mask-4 #language-cat-mask-5
  349.                       #language-cat-mask-6 #language-cat-mask-7
  350.                    )
  351. )
  352. (if (<> 0 @user-level)
  353.     (
  354.         (set #catalog-mask (askoptions  (prompt #getlanguages-prompt)
  355.                                         (help #getlanguages-help)
  356.                                         (choices #language-cat-name-0
  357.                                                  #language-cat-name-1
  358.                                                  #language-cat-name-2
  359.                                                  #language-cat-name-3
  360.                                                  #language-cat-name-4
  361.                                                  #language-cat-name-5
  362.                                                  #language-cat-name-6
  363.                                                  #language-cat-name-7
  364.                                         )
  365.                                         (default #def-cat-mask)
  366.                             )
  367.         )
  368.     )
  369. )
  370.  
  371. ;
  372. ;   prompt for documentation languages to install if not novice,
  373. ;   novice installs documentation for all languages
  374. ;
  375. (set #document-mask (+ #language-doc-mask-0 #language-doc-mask-1
  376.                        #language-doc-mask-2 #language-doc-mask-3
  377.                        #language-doc-mask-4 #language-doc-mask-5
  378.                        #language-doc-mask-6 #language-doc-mask-7
  379.                     )
  380. )
  381. (if (<> 0 @user-level)
  382.     (
  383.         (set #document-mask (askoptions (prompt #getdocuments-prompt)
  384.                                         (help #getdocuments-help)
  385.                                         (choices #language-doc-name-0
  386.                                                  #language-doc-name-1
  387.                                                  #language-doc-name-2
  388.                                                  #language-doc-name-3
  389.                                                  #language-doc-name-4
  390.                                                  #language-doc-name-5
  391.                                                  #language-doc-name-6
  392.                                                  #language-doc-name-7
  393.                                         )
  394.                                         (default #def-doc-mask)
  395.                             )
  396.         )
  397.     )
  398. )
  399.  
  400. ;
  401. ;   set the names of the default image files
  402. ;
  403. (set #mf-image-file   (tackon #Image-dir #mf-image-name))
  404. (set #face-image-file (tackon #Image-dir #face-image-name))
  405. (set #dig-image-file  (tackon #Image-dir #dig-image-name))
  406.  
  407. (if (AND (exists #mf-image-file) (exists #face-image-file) (exists #dig-image-file))
  408.     (
  409.         (set #keep-current #keep-curr-imageset)
  410.         (set #image-set 0)
  411.     )
  412.  
  413.     (
  414.         (set #keep-current "")
  415.         (set #image-set 1)
  416.     )
  417. )
  418.  
  419. ;
  420. ;   prompt the user for the image set to use if expert
  421. ;
  422. (if (= 2 @user-level)
  423.     (set #image-set
  424.         (askchoice
  425.             (prompt #getimageset-prompt)
  426.             (help #getimageset-help)
  427.             (choices
  428.                 #keep-current
  429.                 #col-imageset-name
  430.                 #mwb-imageset-name
  431.                 #bw-imageset-name
  432.             )
  433.             (default #image-set)
  434.         )
  435.     )
  436. )
  437.  
  438.  
  439. ;
  440. ;   copy program files
  441. ;
  442. (copyfiles (source "progfiles") (all) (infos) (dest #MUIMine-dir))
  443. (complete 50)
  444. ;
  445. ;   copy doc file
  446. ;
  447. (if (= 0 @user-level)
  448.     (
  449.         ;
  450.         ;   novice level copies all document files
  451.         ;
  452.         (copyfiles (source "docfiles") (dest #Document-dir) (infos) (all))
  453.     )
  454.     (
  455.         ;
  456.         ;   copy the ATO readme file and the document files
  457.         ;   for the selected languages
  458.         ;
  459.         (copyfiles (source "docfiles/ato.readme") (dest #Document-dir) (infos))
  460.         (if (AND  (<> 0 (BITAND #document-mask #language-mask-0))
  461.                   (<> "" #language-doc-0)
  462.             )
  463.             (copyfiles (source (tackon "docfiles" #language-doc-0))
  464.                        (dest #Document-dir)
  465.                        (infos)
  466.             )
  467.         )
  468.         (if (AND  (<> 0 (BITAND #document-mask #language-mask-1))
  469.                   (<> "" #language-doc-1)
  470.             )
  471.             (copyfiles (source (tackon "docfiles" #language-doc-1))
  472.                        (dest #Document-dir)
  473.                        (infos)
  474.             )
  475.         )
  476.         (if (AND  (<> 0 (BITAND #document-mask #language-mask-2))
  477.                   (<> "" #language-doc-2)
  478.             )
  479.             (copyfiles (source (tackon "docfiles" #language-doc-2))
  480.                        (dest #Document-dir)
  481.                        (infos)
  482.             )
  483.         )
  484.         (if (AND  (<> 0 (BITAND #document-mask #language-mask-3))
  485.                   (<> "" #language-doc-3)
  486.             )
  487.             (copyfiles (source (tackon "docfiles" #language-doc-3))
  488.                        (dest #Document-dir)
  489.                        (infos)
  490.             )
  491.         )
  492.         (if (AND  (<> 0 (BITAND #document-mask #language-mask-4))
  493.                   (<> "" #language-doc-4)
  494.             )
  495.             (copyfiles (source (tackon "docfiles" #language-doc-4))
  496.                        (dest #Document-dir)
  497.                        (infos)
  498.             )
  499.         )
  500.         (if (AND  (<> 0 (BITAND #document-mask #language-mask-5))
  501.                   (<> "" #language-doc-5)
  502.             )
  503.             (copyfiles (source (tackon "docfiles" #language-doc-5))
  504.                        (dest #Document-dir)
  505.                        (infos)
  506.             )
  507.         )
  508.         (if (AND  (<> 0 (BITAND #document-mask #language-mask-6))
  509.                   (<> "" #language-doc-6)
  510.             )
  511.             (copyfiles (source (tackon "docfiles" #language-doc-6))
  512.                        (dest #Document-dir)
  513.                        (infos)
  514.             )
  515.         )
  516.         (if (AND  (<> 0 (BITAND #document-mask #language-mask-7))
  517.                   (<> "" #language-doc-7)
  518.             )
  519.             (copyfiles (source (tackon "docfiles" #language-doc-7))
  520.                        (dest #Document-dir)
  521.                        (infos)
  522.             )
  523.         )
  524.     )
  525. )
  526. (complete 75)
  527. ;
  528. ;   copy image files
  529. ;
  530. (copyfiles (source "images") (dest #Image-dir) (all))
  531. (complete 85)
  532. ;
  533. ;   copy catalog files
  534. ;
  535. (if (= 0 @user-level)
  536.     (
  537.         ;
  538.         ;   at novice level copy all catalogs
  539.         ;
  540.         (copyfiles (source "Catalogs") (dest #Catalog-dir) (all))
  541.     )
  542.     (
  543.         ;
  544.         ;   copy the catalog description file and the catalogs
  545.         ;   for the selected languages
  546.         ;
  547.         (copyfiles (source "Catalogs/MUIMine.cd")
  548.                    (dest #Catalog-dir)
  549.         )
  550.         (if (<> 0 (BITAND #catalog-mask #language-mask-1))
  551.             (copyfiles (source (tackon "Catalogs" #language-dir-1))
  552.                        (dest (tackon #Catalog-dir #language-dir-1))
  553.                        (all)
  554.             )
  555.         )
  556.         (if (<> 0 (BITAND #catalog-mask #language-mask-2))
  557.             (copyfiles (source (tackon "Catalogs" #language-dir-2))
  558.                        (dest (tackon #Catalog-dir #language-dir-2))
  559.                        (all)
  560.             )
  561.         )
  562.         (if (<> 0 (BITAND #catalog-mask #language-mask-3))
  563.             (copyfiles (source (tackon "Catalogs" #language-dir-3))
  564.                        (dest (tackon #Catalog-dir #language-dir-3))
  565.                        (all)
  566.             )
  567.         )
  568.         (if (<> 0 (BITAND #catalog-mask #language-mask-4))
  569.             (copyfiles (source (tackon "Catalogs" #language-dir-4))
  570.                        (dest (tackon #Catalog-dir #language-dir-4))
  571.                        (all)
  572.             )
  573.         )
  574.         (if (<> 0 (BITAND #catalog-mask #language-mask-5))
  575.             (copyfiles (source (tackon "Catalogs" #language-dir-5))
  576.                        (dest (tackon #Catalog-dir #language-dir-5))
  577.                        (all)
  578.             )
  579.         )
  580.         (if (<> 0 (BITAND #catalog-mask #language-mask-6))
  581.             (copyfiles (source (tackon "Catalogs" #language-dir-6))
  582.                        (dest (tackon #Catalog-dir #language-dir-6))
  583.                        (all)
  584.             )
  585.         )
  586.         (if (<> 0 (BITAND #catalog-mask #language-mask-7))
  587.             (copyfiles (source (tackon "Catalogs" #language-dir-7))
  588.                        (dest (tackon #Catalog-dir #language-dir-7))
  589.                        (all)
  590.             )
  591.         )
  592.     )
  593. )
  594. (complete 95)
  595.  
  596. ;
  597. ;   copy the appropriate image file set to use as default
  598. ;
  599. (set #def-mfimage  #col-def-mfimage)
  600. (set #def-fbimage  #col-def-fbimage)
  601. (set #def-digimage #col-def-digimage)
  602. (select #image-set
  603.     (
  604.         (set #def-mfimage  "")
  605.         (set #def-fbimage  "")
  606.         (set #def-digimage "")
  607.     )
  608.     (
  609.         (set #def-mfimage  #col-def-mfimage)
  610.         (set #def-fbimage  #col-def-fbimage)
  611.         (set #def-digimage #col-def-digimage)
  612.     )
  613.     (
  614.         (set #def-mfimage  #mwb-def-mfimage)
  615.         (set #def-fbimage  #mwb-def-fbimage)
  616.         (set #def-digimage #mwb-def-digimage)
  617.     )
  618.     (
  619.         (set #def-mfimage  #bw-def-mfimage)
  620.         (set #def-fbimage  #bw-def-fbimage)
  621.         (set #def-digimage #bw-def-digimage)
  622.     )
  623. )
  624.  
  625. (if (<> "" #def-mfimage)
  626.     (
  627.         (if (exists #mf-image-file)
  628.             (rename #mf-image-file (cat #mf-image-file ".bak"))
  629.         )
  630.         (copyfiles  (source (tackon "images" #def-mfimage))
  631.                     (dest #Image-dir)
  632.                     (newname #mf-image-name)
  633.         )
  634.     )
  635. )
  636.  
  637. (if (<> "" #def-fbimage)
  638.     (
  639.         (if (exists #face-image-file)
  640.             (rename #face-image-file (cat #face-image-file ".bak"))
  641.         )
  642.         (copyfiles  (source (tackon "images" #def-fbimage))
  643.                     (dest #Image-dir)
  644.                     (newname #face-image-name)
  645.         )
  646.     )
  647. )
  648.  
  649. (if (<> "" #def-digimage)
  650.     (
  651.         (if (exists #dig-image-file)
  652.             (rename #dig-image-file (cat #dig-image-file ".bak"))
  653.         )
  654.         (copyfiles  (source (tackon "images" #def-digimage))
  655.                     (dest #Image-dir)
  656.                     (newname #dig-image-name)
  657.         )
  658.     )
  659. )
  660.  
  661. (complete 100)
  662.  
  663. (exit)
  664.  
  665.